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1 * GENERAL AUTOMATION, TNC. ALL RIGHTS RESERVED 

P ************************************************** 

3 * 

4 * PROGRAM MflMF FPH-13 

5 * 

6 * MODEL NUMEER 8^013 

7 * 

8 * PURPOSE FORTRAN PHASE- 11 

9 * 

10 * PROGRAMME CICK WALLMANN 

11 * 

l_2 ***************** REVISION LIST ************** 

13 * 

14 * RV DATE SCC PY REASON FOR CHANGE 

15 * - 

16 * 

17 * 01 11/16/73 NCNE RPH INITIAL RELEASE 

18 * 

jg ************************************** ** ** ******** 

?g * ********** ************* *************************** 

21 HONG MPX FORTRAN ** ASCAN II 

22 ************************************************** 

23 *STATUS-V£RSION 1, MODIFICATION 
2k * 

25 *FUNCTION/OPERATICN- 

26 * * CHECKS FIND, READ, WRITE, AND GC TC STHNT 1 ? 

27 * p 0R CORRECT SYNTAX, STATEMENT NUMBER'S ANQ 

28 * REFERENCES, AMD VARIABLES. 

?9 * * DETECTS IMPLIED DO LOOPS IN R£fD ANT WRITE 

^0 * STATEMENTS. GENERATES THE NECESSARY 

31 * INDICATORS. 

32 * 

33 * ENTRY POINTS- 

1U * * STAFT-PHA^E 13 IS PEAT INTO nc rc q Y °HAS£ 

.35 * 1? VIA ROLRX, EXFCUTION IS ar GUN 

36 * aT LOCATION START. 

37 * 

38 *INFUT- 

3Q * * THE STATEMENT STRING 

40 * * THE SYMPOL TARLE 

41 * * THE FORTRAN COMMUNICATION ARES 
HZ * 

l»3 *OUTPUT- 

kk * * THE STATEMENT STRING 

k5 * * THE SYMPOL TABLE 

46 * * THE FORTRAN COMMUNICATION AH£A 

47 * 

48 ^EXTERNAL REFERENCES- 

49 * * SUBROUTINES 

50 * ROLPX 

51 * * OTHER FORTRAN PHASES 

52 * NONE 

53 * 

54 *EXITS- 

55 * * NORMAL- 

56 * PHASE 14 IS CALLER VIA POLPX AMD CCM D OL 

57 * IS FASSEO TC IT. 

58 * * ERRCRS- 

5g * OVERLAP-PROCESSING IS HALTED, THE ERROR 
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60 * WORD IS SET IN *CO^, PHASE H IS 

61 * CALLED VIA ROLRX. 

6? * SYNTAX- THE ERRONEOUS STATEMENT IS REPLACED 

63 * WITH AN ERROR NUMBER, PROCESSING 

6<i * CONTINUES, PHASE 14 IS CALLED 

65 * VIA ROLRX, 

66 * THE ERRORS DETECTED ARE NUMBERS 

67 * 43,^,<f5,*tC:,<+7,<+3,uq,50 A«0 68 

68 * 

69 *TARLES/WCRK AREAS- 

70 * * THE STATEMENT STRING 

71 * * THE SYMBOL TABLE 

72 * * THE FORTRAN COMMUNICATION AREA 

73 * 

7k *ATTRIBUTES-N/A 

75 * 

76 *NOTES- 

77 * THE SWITCHES USED IN PHASE 2 FOLLOW, IF NON- 
78 * 7ER0 TH2 SWITCH IS TRANSFER T. IF 7ER0, THE 

79 * SWITCH IS NORMAL N. 

80 * * SW1-CIHENSION NAHE SUBSCRIPTED 

81 * T NOT SUBSCRIPTED 

R? * * SW2-READ CR WRITE STATEMENT 

83 * T RE^C STATEMENT FOUND 

Bk * N WRTTE STATEMENT FOUND 

85 * * SW3-EQUAL SIGN 

86 * T EQUAL SIGN FOUND 

87 * * ?Wi»-ni"IENSIONED DAME 

88 * T NAHE DIMENSIONED 

89 * * FNOSW-FINC STATEMENT 
90* T FIND STATEMENT FOUND 

g^ #*»#»*♦ «^**#*.**#»* #***♦**♦»***♦************ ******* 

q? HDNC MPX FORTRAN ** ASCAN II 

J*3 APS jgg r c&/?tr 

9u * 

q5 * SYSTEM AND FORTRAN EQUATES 

96 * 

97 MEMRY FQU /?'*Tr Gfittr MAXIMUM CORE SIZE 

98 PHSI7 SOU i»*320 MAXIMUM PHASE SIZ^ 
9R OVFRL EOU MFM*?Y-PHSI7 PHASES 2-29 START 

100 PCOM EOU OVE&L-22 FORTRAN CO*". TABLE 

101 PHNT9 EOU FCO^-56 °HASF TABLE 

102 RCLRX EOU PHNT n -50 INTERPHASE CALL 

103 * 

Iflit * FORTRAN COMMUNICATION ARES 

105 * 

106 ORG FCCM FORTRAN CO*M AREA 

107 SCFS BSS 1 START OF STRING 

108 FCFS 3SS 1 p ND OF STRING 

109 SCFST BSS 1 START CF SYMBOL TABLE 

110 SOFNS BSS 1 STA*T OF NON-ST*NT NOS. 

111 SOPXT BSS 1 START OF SU&SC TE*PS 

112 SOFGT BSS 1 START OF GENERATED TEMPS 

113 ECFST BSS 1 END OF SYMBOL TABLE 
1H» COMON BSS 1 NEXT AVAILABLE r OKMON 

115 CSIZE BSS 1 SI7E OF COMMON 

116 ERROR BSS 1 OVERLAP ERRCP 

117 PNAME BSS 1 °ROGRAM NAME WD 1 

118 BSS 1 PROGRAM NAME. WO ? 

119 SORF BSS 1 SUBR (-) CR HJNC (*■) 
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120 CCWO RSS 1 CONTROL CAPO WD 

1?1 * PIT 15 TRANSFER TRACE 

12? * p IT 14 ARITHMETIC TRACE 

1?3 * PIT 11 ^XTENOEn PRECISION 

12^ * °TT 12 LIST SYMBOL TA«L~ 

± 2S * n IT 11 LIST SUBPROGRAM NAMtS 

126 * bjj io LIST SOURCE PROGPAM 

127 * PIT 9 ONE WORD INTEGERS 

128 IOCS RSS 1 IOCS CONTROL CART WORT 

129 * 

13g * SEE PHASE ONE FCR RIT PATTERNS 

131 * 

132 DPCNT 3SS 1 DE p TNEO PILE COUNT 

134 LCOMN RSS 2 C IZE hf INSKFL COMMON 

13*5 * 

136 ICCER 9SS 2 IOCS CONTROL CAPR £SRQR 

138 RSS 2 SYSTEM LOAPFP USE 

139 * 

1<f0 * END OF FORTRAN COMMUNICATION 

HI + AREA 

142 * 

1^3 HONG MPX FORTRAN ** ASCAN II 

1^ OPG OVERL PHASE ENTRY 

1M5 START LP- FRROR TEST F0*» OVERLAP ERROR 

146 ISC L ORGTN, - BRANCH IF NO ERROP 

147 * 

1H8 * TRANSFERS TO THE POL ROUTINE 

l^q * TO LOAD THE NEXT PHASE 

150 r\\j£vr: RSI L ROL^* CALL DOWN °HftSE 1** 

151 oc 14 NEYT oHflSE NI'MRSP 

IS? * 

t5 -< * MOVES THE STMNT STRING ADJACENT 

15 J * TO THL SY« T^L. INITIALIZES 

!55 * THE T/P PT. CHECKS FOR THE 

156 ». TRACE AND IOCS INPICATCRS IN 

157 * THE FORTRAN COMMUNICATIONS AREA 

158 ORGTN LO EOFS GET SIZE OF 
i5Q S SOPS STRING - 1 

16 STO * 1 INITIALIZE STRING 

161 L nx L7 *-* SIZE COUNTER. MOD^PTARLE 

162 MOX 3 1 SIZE OF STRING 

163 LDX I? EOF* LOOP INPUT PT 

164 LOX II EOFST LOOP OUT c UT PT 

165 ORGI D LO 2 LOAD WO<?0 AND MOVE IT 

16 6 STO 1 ? NEXT TO SYMBOL TA^tE 

167 MOX 1 -1 MOVE POINTER* 

168 MOX ? -1 

l 6 o MOX 3 -1 n E CR£MENT COUNTER 
!70 MOX OPG To rQNTINUE LOOP 

171 HDX 1 3 INITIALIZE STRING IN&UT FT 

172 * 

177 * INITIAL PHASE 

t7 4 LOX I? SOF c INITIALIZE STRING 0/ D °T 

175 * 

176 * TRACE CONTROL RECORD C P£SENT 

177 LD OCWn TS THERE A TRACE 
17P SLA 14 DEVICE RPnUTPED 
17 g nsC L XY1, - "RANCH IF NO 
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180 * 

181 * 

18? LD SORF ts TRACE DEVICE CP ESENT 

183 OR TOO c CR IN MAINLINE PPCORAM 

184 BSC L XY1,7 "RAMCH IF YES 

185 * 

186 * PUT OUT ERROR NO. 50 

187 LH SAE^T LOAO ERROR 10 W">PP 

188 BSI L CHFPK CUTOUT ER o 0R 10 W^RH 

189 LD S59TT LOA1 ERROP NUMBER 
198 BSI L CHECK CUT D UT EPPOP NUMRER 
191 MOX XVi PSGIN ROT-Y SCAN 

t 92 * 

19? * CONSTANTS 

194 SAERT DC /A008 FRR0R IT WQRn 

195 S50TT DC 50 E^ROR NO. 50 

196 S0001 on /00C1 ONE 

197 S07 C P DC /til** NORM MASK 

198 * 

199 * INITIALISES TO SCAN THE 

200 * STATEMENT °0DY 

?ni XYl LO 1 LOAD STHNT ID WO^r 

?0? AND S07PF CLEAR OUT ID TYPE 

203 SRA 2 RIGHT-JUSTIN NORN 

204 STO L XY?7 i SAVE NORM 

205 STX LI XT1 SAVE INPUT °OINTFP 

?06 A L XT1 fl OO INPUT p^TNTER TO RET 

?07 STO L NXTTD ADDRESS OF NEXT STHNT 

208 STX L? IOSV? *AV£ OUTPUT FT 

209 STX 1 IOSV1 C AV£ INPUT PT 

210 BSI L HOVE1 OUTPUT WORD, MOVE D T 

211 LO 1 -1 LOAD STMNT ID WORT 

212 EOR S0001 TEST FOR STMNT NU M DER 

213 DSC L XY2,E BRANCH NO STMNT NUMBER 
?1U B^I L MOVF1 CUT°UT WORD, HOVE °T 

215 MOX L XY27 1,-1 DECREMENT NC*M COUNTER 

216 * 

218 * CHECKS FOR THE END STMNT 

219 XY2 LD L »-* LOAD STMNT ID WORD 

220 IOSV1 r OU XY2 1 ADDRESS OF STMNT IT WORD 

221 * "MODIFIABLE 

222 SPA 11 RIGHT-JUSTIFY 10 TYPE 
227 S L TEND IS IT END STMNT 

224 DSC L XY3,7 ?*?AN€H IF NOT 

225 

226 

227 XY3* MOX ? -1 GET NEW PND OF 

228 STX L? EOFS STRING ACTRESS 

229 MOX OVERF CO TO NFYT PMASE 
230 
231 









2^2 * nrTEDTS C INQ STHNTS 

233 XYi+^ S L TFIND IS IT FIND STMNT 

234 BSC L XY2^,7 "RANCH IF MOT 

235 STX FNDSK C ET FINO STMNT SWITCH 
276 MOX NSW? CHECK FOP DEVICE 

237 * 

23* * 

23q * n£TECTS READ STHNTS 



* 
* 



* 



a- 



'IT. 



2i,Q XY"^ S L TREAC T S IT READ STMNT 

241 RSC L XY*4,7 or, AUCH IP WOT 

?k? 

243 

2*4*4 STX L0 3W2 SET SWITCH TC REST 

245 MOX XY6 NORHALI7E FIND SWITCH 

246 

mi 

2*48 * DETECTS WRITE STMNTS 

2^9 XY*4 S L TWPTT TS IT WRITE STMNT 

250 BSC L XYi»p,Z BRANCH IF NOT 

251 * 

252 * 

253 STO L SW2 C ET SWITCH TO WRITE 
?5*» * 

255 * 

956 * CHECKS THE S^RP WORD IK THE 

257 * FORTRAN COMMUNICATIONS AR-A FOP 

258 * A SUBPROGRAM INDICATOR 

259 * CHECKS FOR THE PRESENC C OF IOCS 

260 * INDICATORS IN & MAINLINE 

261 * COMPILATION 

262 XY6 STO FNQSW NORMALIZE PINO SWITCH 

263 NSW2 LHX 3 kU PUT ERROR NO. *»4 
26*4 STX L3 ERNC IN £RNG 
265 
266 

267 LD L SORF T S THIS SUBROUTINE 

268 DSC L XY6A,7 BRANCM IF vrc 

269 * 

270 * 

271 LD L IOCS CHECK POP VALin 
27? AND HDl r F I/O DEVICE 
273 BSC L XY&A,7 opflKjnH IF VALID DEVICE 

27*4 
275 

276 XY6B LOX 3 45 PUT E^ROP NO. 45 

277 STX L^ ERNC IN ERNC 

278 BSC L XY7 C UT EPROP STMNT CN STRING 

279 * 

280 * 

281 * CHECKS THE SYNTAX OF FIND, READ 

?8? * AND W<?ITE STATEMENTS 

?83 * CHECKS VARIABLE NAMES AND 

28*t * INTEGER CONSTANTS POR VALIDITY 

?85 * CHECKS POP A FORMAT STMNT 

286 * NUMPFR REFERENCE 

287 YY6A LD 10 LOAD WO'^ 

288 S L TLP IS CHAR LEPT PARENTHESIS 

289 BSC L XY7,7 PRANCH Tr NOT 

290 * 

291 ♦ CALL PUT I/O OPERATOR 
29? STX 2 IOCP 1 ^ SAVE OUTPUT POINTER 
29? LD IOOF LOAD I/O OPERATOR 

994 RSI L °UT PUT ON OUTPUT STRING 

295 * 

296 * 

297 LD 10 LOAB WORD 

298 BSI L CHECK PUT CH OUTPUT STRING 

299 * 
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SEITE 



300 
301 
30? 
•503 
30*4 
305 
^06 
307 
3 08 
309 
310 
311 
312 
313 

31*4 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32<« 

325 

326 

327 

328 

329 

330 

331 

33? 

333 

33*» 

335 

336 

337 

338 

339 

3*40 

3«4l 

31*2 

3««* 

3*4 ** 

3<+5 

31*6 

3*47 

3*4 8 

3*49 

350 

351 

352 

353 

35k 

355 

356 

3*57 

3^8 

359 



* 



* 

* 



* 



MOX 



LP 
BSI 

AND 
£OR 
DSC 



IS I 



HC1FF 
^NDSW 
PCLDN 
H017F 

APOST 

* 
XY5 



* 
* 



BSI 



m 

3SI 
SLA 

asc 



LOX 
STX 

DSC 

DC 
DC 

or 
nc 

oc 

DC 



s 

BSC 



STO 



LD 
SLA 



1 1 



1 
L GETTD 

3580E 

s^onn 

L XY7,7 



MOVE 1 



LO 


1 





S 




TCMfi 


DSC 


L 


XY5,"' 


LD 


L 


IOCS 


AND 




HOl^P 


OR 


L 


SOR* 


DSC 


L 


XY6 a , 



MOVE1 



1 
L GETTH 

9 
L XY9, 7 



3 *»6 

3 E*NC 
L XY7 

/01FP 



/32 

/P17F 

/30 

/ *»?-/!? 



HOVE INCUT POINTED 



LOAO WCR n 

GET SYM TRL ID WQFO 
^HECK TO SEE IF 
IT IS IHTcGEF 
BRANCH IF MOT 



OUTPUT WOFD, HOVE POINTER 



LOAD WCPO 

IS CHARACTER COMfA 

D RANCH If NOT 



IS THERE I/O DEVICE OTHER 
THAN DISK OK IS THIS 
SUBROUTINE 
"RANCH IF NEITHER 
IN A MAINLINE. ONL v . 



OUTPUT WOFD, MOVE POINTER 



LOAO WORD 

GET SYH TPL 10 WC"D 
IS IT FORMAT STATEMENT 
FRANCH IF YES 



PUT EPROP NO, *»6 

IN ERNC 

PUT ERROP STHNT ON STRING 

HASK FOR DEVICE Cf-EOK 

FIND SWITCH 

TOLDN 

NON-DISK 'IOCS MAS* 

DISK I/O rprr A TO^ 

APOSTROPHE 



CHECKS FOP THf APOSTROPHE 
MAPK - CHANGES IT TO A COMMA 
OPERATOR 

APOST IS CHARACTER APOSTROPHE 

XV8,7 ««?ANCH IF NOT 



TCQP 
1 



L IOCS 

8 



°E p LACE APO^TROPHF ON 
INPUT STPING WITH CCMMA 



PFMOVf- ALL ^TTS FPOM TOOS 
WORD EXCEPT *IT FER DISK 



SCITE 



"<60 
361 
36? 

363 
364 
365 

366 
367 

366 

369 

370 
371 

372 

373 
374 
375 
376 
377 

378 
-?7<a 

380 

381 

38? 
383 
384 

*85 
386 
387 
388 
389 
390 
391 
39? 
393 
39*» 
395 
396 
397 
398 
399 
400 
UOI 
40? 

4P3 

*04 

40 1 ; 

406 

407 
408 
409 

Mil 

412 
413 

414 
415 
416 
417 

418 
419 



* 

* 
* 






SKCOL 



SRA 

OR 
9SC 



LD 

OR 
BSC 



LOX 
STX 

BSC 



RE PL 



TCOPS 
KCLCN 



* 
XY9 

*Y8 



CLMV1 



LP 

S 

BSC 

BSI 

MOX 

LO 

STO 

LP 

STO 

SOU 

MDX 

LP 

S 

BSC 
IPX 



XY8A 



LO 

S 

BSC 



3SI 



LO 

BSC 

LO 

BSC 

BSC 

LO 

^SC 

LO 



15 
L SORP 
L XY6% - 



IS OISK DEVICE PR; 
IS THIS SURPCUTTN' 
"RA'JCH TF NEITHER 



SENT o«? 



L 
L 

L 



L 

L 



OFCNT 

SORF 

SKCCL,Z 



LOAD PILF PCUNT 
COMBINE WITH SOPF 
"RANCH I!" HAVE EITHER 



3 70 
L3 cRNC 
L XY7 



OJjJ PPPQP 

TNTO ERMO 
PUT ERROR 



NO. 7 

STMNT ON STRING 





COLCN 

KOLCN,+- 

HOVE1 

SKCCL 

RPA^N 



C I C C P 

♦-1 

CLMV1 
-1 

ICMA 
RE D L,7 

PE p l -^ 



CHECKS FO 
FOUND CHA 
A DISK OP 
OPTP n ACK 
PARENTHES 
LOAO 



IS C 
CRAN 
CUT° 

GET 

LOAO 

PUT 

PFPL 
DISK 
60 OR 
•MOO 
GONT 

IS I 
PRAM 
YES 



R THE 
NGES 
TR. C 

TC A 
IS OP 

WORD 
HARAC 
CH IF 
UT WO 
NEXT 

RICH 
IN PI. 
A^E I 

I/O 

ESS 
IFIfln 

IN US 



COLON G C TP. IP 
THE I/O C°TR TO 
HANGES THE COLON 

'RIGHT 
EPATOR, 



TER COLON 

YES 
RO, MOVE POINT 
WOPP 

T PARENTHESIS 
ACE OF CCLCN 
/O OPERATOR WT 
OPERATOR 
F I/O OPERATO 3 
LE 
ST M NT CH r C l< ' 



VIM 

EE 



ITH 



T A COMMA 
CH HO. 



VIM 
VIM 
VIM 
VIM 



BSI L MOV-1 



1 
TRP 
L XY7, 7 



OUTPUT WnPH, HOVE POINTER 



LOAO WORD 

IS CHAR ^IG^T PARENTHESIS 

BRANCH tr HOT 



CHECKS FOP TH? SEMICOLON 3 TR 
IN FTNO STMNTS. 
1. HOVtl OUTPUT WORD, MOV' POINTER 

SEMI-COLON MUST POLLOW FIND 
FNOSW IS THIS FIND STMNT 
L XY8A, - BRANCH IF NOT 

1 Q IS CHARACTER SEMI-COLON 

L XY7,Z BRANCH IF NPT 
L XY11 C01REPT STMNT NORM 
3W? TS IT READ STMNT 
SKI 3 IF YES 
10 IS IT SEMI-COLON 
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4?0 
U?\ 
h2? 
423 
424 
425 

«»?6 

427 

428 
429 

!«30 

431 
432 

433 

434 
435 
436 
437 
438 
1*719 
440 
441 
44? 
443 
444 
44^ 
446 
447 
448 

449 
450 
451 
t*5? 
453 
454 
455 
^6 
457 
458 
459 
460 
461 
46? 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
4?6 
477 

4?e 

479 



DSC L CKCMA,? 



CKCMA 



YT1 

SW2 

TEND 

TR£flD 

TWRTT 

TFIND 

ERNO 

TLP 

ICOP 

S4000 

TRP 

PPARN 

ICMA 

TCMA 

7G0 D 

TRGLP 

TWO 

S5BOE 

TRGOP 

OCAOP 

ALL 

HLQSP 

FOUR 

^F802 

S0020 

^^FDE 

SDBOE 

* 

* 

XY10 

* 

YY14 
* 



Ln 
s 

DSC 
HDX 

LD 
DSI 



LDX 
STX 

mdx 



nc 
or 

nc 
on 
nn 
oc 
oc 

DC 

nc 

DC 

DC 

ECU 

DC 

ECU 

ECU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



LD 
BSC 



LD 

BSC 



SSI 
BSI 



LD 



-3 
TL n 
XY7, - 

C K C H A 

TCCF 
CHECK 



? 47 

LI ERNO 
XY10 

CON 



/o? 

/l 2-/02 
/I 1-/12 

/10-/11 



/ltJ 

/26 

/4Q00 

/o? 

TRP 
/12 

ICMO 
ICMA 

/22-/10 

2 

/ 5 P. V E 

/22 

/2A 



/02-/12 

/F803 

/0020 
/FFnr 

/DRDE 



1 
L XY11 , - 



PRANCH IP MOT 
IS IT UNFORMATTED 
WITH NO LIST 
n RANCH IF YES 
CONTINUE 

PUT COMMA ON 
OUTPUT ST D INf 



CUT ERROR NC. t*7 

INTO ERNO 

START LIST CHECK 



W^IT? 



ST ANTS 

TEMPORARY 
SWITCH ? 
END ID 
READ ID 
WRITE ID 
C IND ID 
ERROR NUM 
LEFT PART 
I/O OPERA 
MASK TO C 
PIGHT PAP 
RIGHT PAP 
COMMA 
COMMA 
COMMA 

SPECIAL 
TWO 

MASK FOP 
SPECIAL S 
COA INOIC 
INDEXING 
FIGHT PAP 
FOUR 

MASK TO C 
VARIABLE 
MASK FOR 
r ON OR \/A 



STORAGE 



P £P 

NTHFSIE 

TOP 

HECK FOR 
fNTHESIS 
F NTHESIS 



INTEGE* 



SKIP INDICATOR 

INTEGER VARIABLE 

KIP INDICATOR 

ATCP 

PARAMETER COUNTER 

f NT HE SI? 

LEAP OUT NORM 
DEFINED PIT MASK 
INTtGE° VARIABLE 
R INTEGER ^AFk" 



IS CHAR c FMI-COLOK 
"RANCH IF YE C 



FHECK? A VARIABLE ^OP CE^INITIC 
IP DEFINED, SETS THE INDICATOR 
IN THE SYM T^J. ID WORD 

IS IT SOCIAL CHARACTER 

XY12,- PRANCH IF YES 



L 

L 



GETir 
TESTV 



SW? 



GET SYM TPL ID WORD 

TEST VALIDITY OF VAPIAPLE 



TS IT REAC ST^NT 



SEITF 



*»80 
*»81 
*»82 
i»8 3 
<t8*t 
i»85 
1*86 
«i87 
<*88 
£♦89 
<»90 
^91 
**9? 
i493 
k<*U 
k9B 
1*96 
«497 
*»98 
(,99 
500 
501 
50? 
503 
50i» 
505 
506 
507 
508 
509 
510 
511 
51? 
513 
5i*» 
515 
516 
51? 
518 

5ig 

320 

521 

52? 
523 
52«» 
525 
526 
52? 
528 
5 29 
530 
531 
53? 

53<t 
535 
536 
5 37 
5 38 



RSC L XYifcA, - "RANCH IP "JOT 



* 
* 



* 



LO 
1R 
STO 



XY1<»A SSI 

XY17 LD 
S 

8SI 
MOX 

* 

XY1? S 

9SC 






LD 

9SC 

mdx 



XY15 S 

DSC 
* 



* 
* 



* 
♦ 






* 



LDX 



ld 

s 

DSC 



MDX 
MDX 



XY16 LDX 
MQX 

+ 

STX 



7 

S ? 
3 



L >IAM : 



1 
TCMA 
L XY13,Z 



L MOV c l 
XYli, 



TLP 

L XY1<5,7 



9SI L 00 



L SW3 
L XY7, 
XY1* 



TRGIP 
I. XY7,7 



7 3 



9SI L OUT 



1 
TOM? 
L XVI', 7 



1 1 
XY1«» 



LOAD SYM T9L 10 W^PO 
ADD DEFINED VAR "IT 
PUT 9ACK IN SYM T n L 



°OSITICN D T TO NEXT VAR 



LOAD WORD 

TS CHARACTER COMHA 

9RANCH IF NOT 



CUTPUT COMMA, MOVE n T 
START LIST CHECK AGAIN 



TS CHAR LEFT PARENTHESIS 
PRANCH IP NOT 



CHECK FOO IMPLIED DO LCOF 



WAS EOUAL SIGN FQLNO 

"RANCH IP NOT 

PROCESS IMPLIED DC LOO°S 



IS CHAR SPECIAL S^I C OPTP 
"RANCH IF MOT 



NO. WORDS TO 9E SKTPPEO 



CUTOUT THREE WORTS 



LOAD CHARACTER 

IS CHARACTER COMMA 

BRANCH IF NOT 



^OVE POINTED 
CHECK REST CP LIST 



CHECKS FOR A NCN-DIMENS IONE H 
INTEGER VARIABLE 

INDICATES DE c IMTJON IF DEFINED 
GENERATES THE OO-INIT IALI7.E O^T 
II OOX GET ADDRESS CF 
1 -1 VARIARLE 



2 XT1 



STORE OUTPUT "OINTER 



:EITE IP 



5^0 

51*1 
5*? 

5*»<* 
5*«5 

5<*6 
5<*7 

F48 

5«<9 

55 
551 
552 
557 
55<* 

556 

557 

5*56 

55° 

560 

■^61 

56? 

563 

56*4 

565 

566 

567 

568 

569 

570 

571 

572 

573 

57** 
5?c; 

576 
577 
578 

679 

580 
581 
58? 

58 7 

^8*4 

585 

586 
587 

588 
589 
590 
591 
59? 
593 
59«» 
595 
596 
597 
598 
59R 





















* 

XY?t 



* 



LD 

A 
S 

bsc 



LD 
BSI 
SLA 
S 

SLA 

LD 

3SC 

LD 

AND 

EOR 

BSC 



LD 
OR 
STO 



MOX 



STX 

LD 

A 

S 

BSC 



LD 

BSI 

AND 
EOR 
BSC 



XT1 r HEGK TO SEF IF 

TWO OVERLAP BETWEEN IKPtJT 

L QOY AND OUTPUT STRING 

L OKI,- BRANCH IF OVERLAP 

NON-DIMENSIONED INTEOEP VARIA^L 
1 LOAD WORD 

L GETT^ GET SYM T°L ID WORD 
MANIPULATIONS TO 
DETERMINE WHICH 
MASK TO USE 

MAINLINE OR SUBROUTINE MAS 
PRANCH NOT FUNCTIDN 
FUNCTION MASK 



16 
SOP* 7 

1 

SnqP£ 

C 

SFFD5 



SttOOO 

XY7,7 



3 

S00?1 

* 



BSI L MOVE! 



LD 
STO 


1 


TRGCP 
-1 


LD 
RSI 


I 


DOAOP 
PUT 


LD 
STO 


1 


TLP 




SLA 

STO 




16 
AIL 



1 1 



L 
L 



XT1 
XT1 
TWO 
DDY 
CK1,- 



1 

L GET ID 
S5 3DE 
S k Q 

L XY7,7 



TEST TO SEE TF VALID 
NON-DIMENSIONED INTEGER VA 
D RANCH IF NOT VALID 



LOAD SYM TRL ID Hf^n 

CUT IN VARIABLE G? FINED 91 

PUT BAC< IN ^YMROi TA D LF 



OUT°UT VAFIAPLE,MCVE P T 



REPLACE VA p IAPLE r N INPUT 
STRING WITH SKIP CPE9AT0P 



PUT DOA OPERATOR 
CN OUTPUT STPING 



PFPLACE E^UAl SIGN IN 
INPUT STRING 



C ET INDEXING PARfl^E T E° 
COUNTER TO 7E PO 



HOVE PCINTEP 



*TORE OUTPUT POINTS 
CHECK TO SEF IF 
OVERLAP ^ETW^EN INPUT 
AND OUTPUT STRING 
FRANCH IF OVERLAP 



GET INDEXING PARAMETER 
GET SYM TFL ID WORD 
CHECK FO^ VALID TNTEGFR 
CONSTANT OR VARIABLE 
PRANCH IF NOT VSLIH 






S£IT£ 11 



600 
601 
60? 
6 03 
604 
605 
606 
607 
608 
609 
610 
611 
612 
633 
61*» 
616 
616 
617 
618 
619 
520 
621 
622 
523 
624 
626 
6?6 
6?7 
628 
629 
630 
631 
632 

633 
634 

635 

6 36 
637 
638 
639 
640 
641 
64? 
643 
644 
t.t±5 
646 
647 

64* 
649 
650 
651 
65? 
663 
654 
655 
656 
657 
6^8 
659 






* 



* 
XY18 

XY19 
* 









* 
XY20 



* 



* 
* 



* 

* 



* 
XY13 

* 
XY11 



BSI L MOVFi 



LO ALL 
BSC L XY18, - 



9SI L DELET 
MDX XV 19 



LR TRGOP 
STO 1 -1 



HDX L ALL, 1 



LO 
S 

osc 



1 
L TCG^ 
L XY2?,7 



BSI L MOVE1 



OUTPUT WORD, MOVE d t 



IS PARA^ETE* CTR 7 epq 
°RANCH IF YES 



PR MOVE WOPO FROM STRING 
CHECK NEXT WDRD CN LIST 



REPLACE INDEXING PARAHETcP 
WITH SKIP OPFRATC 



INCREMENT IDX PARM ST- 



LOAD WOPO 

TS CHARACTER COMV.fi 

"RANCH IF MQT 



OUTPUT CO^MA, MOVt. C T 



CALL EELET 
RSI L DELET REMOVE WQ P D fpom STPING 
HDX XY21 PHECK NEXT INDEXING PARA'' 



S L HLC^f TS CHAR RIGHT PARENTHESIS 
BSC L XY7,? PRANCH IP NOT 



BSI L MOVcl 



RSI L OELfT 



OUTPUT WCFR, MOVE PT 



REMOVE WORD from c TMNT 



LO L ALL IS INDEXING PARAM CTR 

S L ONE IE3S THAN ONE 

BSC L XY7, OR IF YE C 

S L TVIC IS IT .GT. tmppc 

BSC L XY7,-7 q R IF YES 

LOX Tl ROY HOVE START LIST Pf TO 

MPX 1 1 NEXT WOPO IN LI C T 

BSC L XY10 CHECK REST OF LIST 



LP 1 IS CHAR SEMI-CCLCN 

BSC L XY7,7 PRANCH IF NOT 

MOVES A WORD TO T"E 0/ r STRING 
ADJUSTS THE ST^NT NOP* 
BSI L PUT PUT CHAR ON OUTPUT STPING 

COPRTCT STATEMENT NOP* 



StITE 1 



660 

661 

66? 

667 

66<+ 

665 

666 

667 

668 

669 

"570 

671 

672 

673 

671* 

676 

6 76 

577 

678 

679 

680 

581 

682 

68^ 

68** 

686 

686 

687 

688 

689 

690 

691 

69? 

693 

69** 

695 

696 

697 

698 

699 

700 

701 

70? 

70 7 

70*4 

705 

706 

707 

708 

709 

7 10 

711 

712 

713 

714 

715 

716 
M7 

718 

719 



YT3 

* 
* 

XY7 

ICSV? 



in 

AND 

STO 

STX 

LP 

S 

SLA 

A 

STO 

MDY 



nc 

DC 

oc 



LPX 

EOU 

LO 

EOR 

RSC 

LP 

A 

STO 

HOX 

HOX 

LO 

STO 

LO 

STO 

HOX 






XY2 2 
NXTTO 



XY?*t 









LOX 

EOU 

9SC 



S 
BSC 



LOX 
STX 



LO 

RSI 



LO 

S 
BSC 



IDSV? 

SF80? 
XT*4 

XT3 

XT3 

IOSV? 

2 

XTi» 

IOSV 

XY2? 



L? 



2 
? 

? 

9 
9 



CLEAR NOP" 

SAVE ID WOP.P 

SAVE OUTPUT POINTER 

GET NEW NORM 9Y SUBTRACTIN 

COORESS 0^ IP WORE PROM 

PRESENT PCINTC}? 

PUT NORM IN ID WQPP 

^UT RACK ON OUTPUT ST p. IMG 

MOVE TC NEXT STMNT 



CONSTANTS 
TEMPORARY STORAGE 

TEMPORARY STORAGE 

/A008 FRRQR in WORT 

RE C LACES THE ERRONEOUS 
py AN ERROR MESSAGE 



STMNT 



XY? j 


PIVF 

* ■>,: 

PIVE 

ERIC 


1 

* 3 

ERIC 

3 

ERNC 

1 

? 



ER T <OP ItSSBt.t 
LOAD OUT c LT POINTER WITH 
ADDRESS OF OUTPUT IP WORP 
"HOOIPIARLE 
LOAP OUTPUT VORO 
PRANCH IF HAS NO 
STATEMENT NUMBER 
PUT STMNT NO. p IT AND APR 
CNE TO NORM PF IP WORP 
PUT ON OUTPUT STRING 
MOVE POINTER 

GO °UT ERROR NO. CN STRING 
LOAP ER r ?OP IP WOP r 
PUT ON OUTPUT STRINO 
LOAP ERROR NUMBER 
PUT GN STPING 
VOVE PGINTE p 

HOVE TO NEXT STATEMENT 



Ll *-•» LOAP INPUT POINTER NITH 
XY2? 1 NEXT PTMNT ADDRESS 
♦MODIFIABLE 
L XV 1 SCAN STMNT 



CHECKS THE SYNTAX Q^ SC TO 
STMNTS - CHECKS THE STMNT NO. 
LIST FOR VALID REFERENCES 
TGCTC IS IT GO TO STMNT 
L Wl.1,7 DOft^CH IP NOT 



4? 



L3 ERNH 



GOTPP 

r* H c r k 



1 
ULP 
L XY?e 



PUT ERRO" NC. 
IN IP NO 



«+e 



LOAD GC TC CPERATCR 
PUT CM OUTPUT STRING 



LOAD WORP 

IS CHAR LfFT PAP = 

BRANCH I r YFS 



MM: 



IT 



1 '< 



7?n 

721 

7?? 

7?7 

y?u 

7?5 
7?6 
7?7 

7?8 
7?9 
710 
731 

732 

733 
73*4 
775 
736 
737 
738 
7 3Q 
7i*0 
7<tJ 
7k? 
7<43 
?<♦<♦ 
7*i5 
72*6 
7H7 

7h% 

7k9 

750 

751 
75? 

753 
75*» 
755 

756 
757 
75 8 

759 
760 
761 
76? 
767 
76<» 
765 
766 
767 

768 
769 
770 
771 
77? 
777 

77k 
776 

776 
777 
778 

? 7q 



* 
* 



* 
* 



RSI L LIST 



XY713 

* 
XY26 

* 



•* 
* 



* 
* 






* 












LP 
S 

RSC 
MOX 



RSI 



LP 

S 

RSC 



LP 

EOR 
RSC 



LPX 
STX 



RSI 



LP 
S 

RSC 



RSI 



LD 
RSI 

AND 

EOR 

8SC 



RSI 
HDX 



# 

TfeOOO 

TC90E 

^IVE 

TGOT9 

ULP 

URP 
UCMA 



DC 
DC 
DC 
DC 
DC 
DC 
DC 



L CNT 
THEP 

L XY7,7 
XY13 



HOVE1 



RSI L L T ST 



1 3 
URF 
L XY7,7 



L CNT 

Five 

L XY7,F 



3 i+9 
L7 £RNC 



MOVF1 



1 

UCMfl 

L XY7,7 



HOVF1 



1 

GETIO 

TOFGE 

T4Q00 

L XY7,Z 



MOVE1 

XY713 



CHECK FOP CORRECT FORMAT 



IS NO. Of PLACES TQ => RANCH 

GREATER THAW ONE 

"RANCH IF YF5 

CHECK FOR END O c C TMNT 



CUTOUT WORD, MOV! PCINTER 



CHECK FOP CORRECT c ORM&T 



TS CHARACTE" 
SIGHT PARENTHESIS 
npAMTM I F K!p T 



LOAD COUNT Of" SIMM NOS, 
TS OCUNT ODD 
PRA4CH IP YE C 



CUT ERROR NO. i»R 
TN ERNC 



CUT°UT WORD, HOVE PCINTcR 



TS CHfiRACTEP 

COM 4 ft 

"RANCH IF NOT 



CUTOUT WORD, MOVE PCINTER 



LOAD WORD 

GET SVM T"L ID WC*R 
IS IT NON-DIMENSIONED 
INTEGER VARICRLE 
"RANCH I r HOT 



CUT D UT WCFD, GET NEXT WO"C 
CHECK FOR END OF ST^NT 



CONSTANTS 

/UOOO INTEGER MASK - PART 2 

/OPPE INTEGER *ASK - "AFT 1 

5 STMNT NO. MA^K 

/0E-/1D PD TO ID TYPF 

/10 LEFT PARENTHtSIP 

• 02 RIGHT PARFNTHESIS 

/!?. COM'ifl 



SEITE !'■+ 



T 80 

781 

7 8? 

783 

78«* 

7 85 

786 

787 

788 

789 

790 

791 

79? 

793 

7QU 

795 

?96 

797 

796 

799 

800 

801 

80? 

303 

30it 

805 

806 

807 

80« 

809 

310 

811 

31? 

813 

8H* 

815 

816 

817 

818 

81^ 

e?n 

3?1 
8?? 
3?3 

e?h 

B?B 
8?6 

8?7 
8?8 
829 
830 
831 
%12 
833 
831* 
335 
?36 
837 
838 
339 



GCTO° 90 /16 GO TO STMNT 10 TY*-£ 

THER DC 1 CNE 

************************************************** 

* OETS THE TO WCRO FROM THE 

* SYMBOL TABLE ENTRY. 
************************************************** 



* 
GETIO 



GETIE 



OC 
9SC 

AND 

SLA 

STO 

SRA 

S 

A 

STO 

LOX 

EOU 

MOX 

LO 

RSC 



L3 

3 



^NTRY POINT 

XY7,- BRANCH IF SPECIAL OPERATOR 

S01PP GET NO. OR TRL ENTRY 

? GET AOO^FSS FELATJVF. TO 

GETIE ^TART CF SYH TRL C Y 

7 MULTIPLYING NO. OF "NTRY p 

GETIE THREE SI7E OF r N TQY 

SOFST GET ABSOLUTE AOORfSS - 3 

* 1 OF SYM TPL ENTRY 

»-♦ IMITIALI 7 E SYM T«L n T 

*-l "MODIFIABLE 

3 GET SYM T n L PNTRY AGO 

Q LOAO SY"! T9L TO WCPH 

GETIR RETURN 



RC1R C OC 
********* 

* 

* ******* * 



CONSTANTS 
/n7^ c W A3K TC 0£T SYM T e L NO. 

*********************#******¥************ 

HO^ES THE WCRD IN THE £~0 TO 

THr OUTPUT STRING 

MOVES THE POINTER 
***************************************** 



* 
PUT 

* 
* 



OC 
STO 



MOX 





? o 



? 1 



ENTRY POINT 

HJT WORO ON OUTPUT STRING 



MOVE POINTER 



* 
* 

B^C I PUT PET'JRN 
************************************ ****** ******** 

* CHECKS FOR AN OVfcPLA CONDITION 

* BETWEEN THE INPUT ANO OUTPUT 

* STMNT STRINGS 
************************************************** 

* 



CHECK OC 
3SI 



* 

* 



STX 

LO 

STX 

S 

9SC 



9SC 




PUT 



1 CKTf: M 
CKTEM 

? CKTtM 
CKTEf 
L CK1, 



CHE r * 



ENTRY POINT 
CUTPUT WORD 



STORE INPUT ^T 
LOAO IN D U T PT 
STORE OUTPUT PT 
SUBTRACT OUTPUT ot 
BRANCH IF OVERLAP 



RETURN 



;eite 



fl|»0 * S£T UP OVERLAP E'«FCR 

8«*i OKI MOX L £<?RQ-,1 C ET OVERLAP ERROR 

*h? BSC t OVEP p GO TC NfVT phase 

3U3 * 

RUii * CONSTANTS 

845 OKTEM DC TEM°ORARY STORAGE 

flap, ***♦********•♦♦*** + ******************************** 

847 * MOVES ONE WCRO FROM THF IN°UT 

848 * STRING TO THE OUTPUT STRING 

849 * INCREMENTS THr ^DINTE* 
♦ *#**********»***•**.** + ***■¥■****■**■*#*•************** 



* 



850 

851 

852 * 

85T ^CVEl DC ENTRY FOTnT 

85U LO 1 LOAO WORD 

«55 gsi C UT PUT Qt-\ OUTPUT STRING 

856 * 

857 * 

858 HOX 1 1 MOVE INPUT POINTS" 
359 
850 
861 °SSC I MOVE1 RETURN 

g^pi #** + *******♦*.*¥****#**♦*»*****¥******************* 

863 * MOVES WORDS TO THf OUTPUT 

86*4 * STRING USING XP^ AS A COUNT 

865 * CONTROL 

AftC, *#*♦*♦**♦***♦#•****.***»»*#****♦*********«■********** 

867 * 

86 8 * 

860 OUT OC ENTRY FOTNT 

870 BSI H0V r 1 CUT°UT WO~0, MOV" POINTER 

871 * 

872 * 

873 MDX 3 -1 DECREMENT COUNTER 



* 



87<* 

875 * 

876 MDX OUT 1 CONTINUE LOOP 

877 * 

878 * 

879 BSC I OUT RETURN 

oon ***.♦********♦****»**¥***********-********■»********* 

881 * CHECKS N^MES ECR DIMENSIONING 

882 * DETERMINES TH^ DIH£NSICN LEVEL 

883 * HOVPS THE NAME ANT DIMENSION 
88*+ * INFORMATION TO THE 0/° STRING 

885 * ALLOWS S^ACE IN THE 0/P STRING 

886 * ACCOPCING tq THE OIM LtVEL. 

007 *#*****;|^#************* ********** ***************** 

888 * 

389 * 

890 NAME OC ENTRY POINT 

891 LO 10 LOAO WGP p 

892 OSI p UT 
893 

894 

895 RSI GETIC ^ET SYM TEL 10 WCPO 

896 AND S1800 IS IT DIMENSIONED NAM! 
89? BSC L NAHE1,7 "RANCH IF YE C 

898 * 

899 * 



* 
* 



:te i* 



q n "IPX 1 1 ^OV£ POINTER 

qoi * 

go? * 

993 STX 1 SW7 TAG DIMENSION NA W ^ SWITCH 

go** * 

905 * 

906 NAME3 SLA 16 CLEA" DIMENSION NAME 

907 STO SWl SUBSCRIPTED SWITCH 

908 * 

909 * 

910 NAMES 9SC I NAME RETURN 

911 * 
91? * 

913 NAME1 SLA 16 CLEAR DIMENSIONS 
qii, STO SW7 NAME SWITCH 

915 * 

916 * 

gi7 MRX 1 1 *OVE IN°UT POINTER 

918 * 

919 * 



9?0 LD 10 

qpi s NP3 IS IT 7- DIMENSIONED VAR 

92? RSC L Nfi^r?," 7 "RANCH I? NOT 

9?3 * 

9?U * 

q?c: i_py 7 15 SET MOVE-WORD COUNTER 

9?6 * 

9?7 * 

g?8 NA.MF4 RSI CUT PUT WORDS ON OUT = l'T STRING 

q?q " -10X NAMf, * NORMALI7E SWITCH 1 

930 * 

931 * 

93? NAME? S N* 5 ? IS IT 2- riMEKSIONF D VAR 
q^-r 3SC L NfiMF^,3 "RANCH IF HQ7 
93t» * 
975 * 

936 LDX 3 11 LOAD MOVE-WORD CTR 

937 'IPX NAMFi, GO TO PUT ON STRING 
978 * 

939 * 

qitO NAMP5 S NP1 IS IT 1-DIMFNSIONE VAR 

Qi^i BSC L NAME*, 7 "RANCM IF NOT 

9i»? * 

gi^ LHX 3 7 LOAD MOV/r-WCCD CT r 

q^ ^DX NAHcM GO TC PUT ON STRING 

9««6 * 

91*7 * 

9«»8 NAME6 S NPT IS IT LITERAL 

91,9 RSC L NAM-7,7 "RANCH IF NOT 

950 * 

qtil * 

052 LHX 7 3 LOAP MCVE-WO«?D CT^ 

953 HOX NAMF«» GO TC PUT ON STRING 

q$k * 

^55 * 

qc; 6 N/SME7 STX SWl SET SWITCH TC NOT SUDSCR1P 

oc;7 HOX NAV ro RETURN 

958 * 

acta * CONSTANTS 



:ite 



1 7 



960 
961 
96? 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
97*» 

976 

976 

977 

978 

979 

980 

981 

992 

983 

98*4 

98 c 

986 

9*7 

988 

989 

990 

991 

99? 

993 

99*. 

995 

996 

997 

998 

999 

1000 

1001 

10Q? 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 
1012 
1013 

101«« 
101^ 
1016 

1017 

3 018 
1119 



SWITCH 1 
SWITCH 7 
HASK TO T C ST FOR HIMiNSICN 

3 OPERATOR 

? OPERATOR 

1 QPFRATC? 



^wi oc o 

SW7 QC 

S1800 OC /I 30 n 

NP3 OC /IE 

NP2 OC /1C-/1E 

N^l OC /1A-/1C 

NFO OC /18-/1A LITERAL OPERATOR 

************************ *****************^* ****** *■ 

* CHECKS FOR IMPLIED DO lOO a S IN 

* IN°UT ANO OUTPUT 1 1ST? 

* CHECK? THE SYNTAX OF THE 

* IMPLIFO OO 

****************** ************************ ******** 

* 
* 

no 



* 



* 

003 

* 



* 



OC? 
* 



* 
* 

* 
001 



^05 
DOY 
* 
* 



OC 
STX 




1 OOY 



EMTRY POINT 

SAVE INPUT POINTER 



LOX 
STX 



MOX 



LD 



*10X 



SLA 

STO 



7 1 

7 dopap 



1 1 



1 



BSC L 001, - 



S OLPAR 
BSO L DO?, 7 



MOX L 0OPAP,l 
HRX 007 



S 0PM r<; 
RSC I 004, - 



S OE MP P 
RSC L 006,7 



INITIALISE 

PARENTHESIS COUNT?;! 



HOVE POINTER 



IS CHARACTER SEMI-COLON 
aqA\|CH Tp ycc 



TS CHAR LE r T-PAPFNTHESIS 
BRANCH IF MOT 



INCREMENT PAfENTHfSIS CT! 
^ET NEXT WORH 



IS CHARACTER EQUAL SIGN 
BRANCH IF YES 



IS CHAR RIGHT PARENTHESIS 
PRANCH IF NOT 



MOX L OOPAR,-l DECREMENT PARENTHESIS CT^ 



C03 



16 

SW3 



GET NEXT WO^' r ' 



CLEAR EQUAL 
SIGN SWITCH 



LOX LI *-» 

ECU 005 1 



PEST OPE 

INPUT COUNTER. MQCIPTAUE 



SFIT1 



If 



1020 
1021 
lfl2? 
1023 
1024 
1025 
10?6 
1027 
1328 
1029 

1030 

10M 
1032 
103?? 

i<m 

1035 
1036 
1037 
1039 
1079 
1040 
1 Otfi 
104? 
104 3 
1044 
10^5 
1046 
10**7 
10U8 
1049 
1050 
1051 
1052 
1053 
1054 
1055 

1056 
1057 
1058 

1059 
1060 
1061 
1062 
1063 
1054 
1065 
1066 
1067 
106fl 
1069 
1070 
1071 
107 2 
1073 
1074 
107F 

1076 

. 1077 

1078 

1079 



9SC I 00 






004 LOX 
OCPAR ECU 

MOX 
MOX 



* 



* 
SW3 



STX 



STX 

MOX 



nc 



0L o AP OC 

DPMES OC 

hemrp no 

OCX oc 

ospmr on 

OS p OL OC 

ncsi on 



* 
* 



0C6 



L 7 *-* 

004 1 

3 -1 



1 oox 



PETUPN 



LOAO 

PARENTHESIS 

♦MODIFIABLE 



COUNTER 



CEORFMENT PAPRNTK- SIS CTR 
GET NEXT WO ra r 



'AVE INPUT POINTS 



SW3 

OOR 



SET EOUAl 
RETURN 



SIGN SWITCH 



CONST ANTS 



SIG 



S 
9SC 

s 

BSC 

A 

SLA 

STO 

MOX 

* 

MOX 

** * .SI***.**.* 

* 

* 

******** ** 
* 



* 

LIST 



OC 

SLA 

STO 



SWITCH 3 

/1Q LEFT PARENTHESIS 

/0E-/10 fOUAL SIGN 

/02-/0E RIGHT PARENTHESIS 

TN^UT POINTER AT EQUAL 

/18-/02 7-DIHFNSICNEP OPRRATOP 

/1E-/18 O-DIMtNSICNEP OPERATOR 

/07 SEVEN 



l!SRHP IS CHARACTER A SPFCTAL 

L 003, 7 t£FT PAPFNTHFSIS 

DSPPL GET NEXT CHARACTER 

L DO?,-? IF JOT 

MOVE PT OVER SUOSCRI D T 
QOS1 ADD NINE 
1 MULTIPLY nv TWO 

* 1 INCTE M ENT IN r UT PT 
LI *-* TO MOVE OVER SUBSCRIPT 
♦MOOI^IABLE 
003 GET NEYT WO^n 
****** **************** ******** ********** 

CHECKS THE STMNT NUMRE r LIST 

IN GO TO STMNT F OR VALID 

REFERENCES, 

LAPEL LIST 
***«***«s**.*****************+****-****^** j f' 



ENT1Y P1INT 

16 CLEAP COUNT 
CNT CP STMNT NOS. 

NCN-PCRMAT STATEMENT NL'M a E? 



LIST7 LO 
OSI 

A NO 

EOR 
3SC 

* 

OSI 



1 



GETIT 
TRFHE 
S02(l 
LIST?, 7 



MOVr 1 



LOAD WCRO 

SET SYM TRL 10 WCPO 

IS WCPD A 

STMNT NO, 

9RAMCH IF NOT 



CUT 3 UT WORO, MOVE POINTER 



SEITE 



19 



i o*?n 

1031 
10 8? 
1083 
i 08^4 
1085 
1086 
1087 
1088 
108° 
1090 
1091 
1092 
109 3 
109<+ 
1095 
1096 
1097 
109 8 
1099 
1100 
1101 
1102 
110"* 

not 

110F 

1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 

111** 
1115 
1116 
1117 
1118 
1119 
11?0 
1121 
1122 
1123 
112U 
1125 
1126 
1127 
1128 
1129 
1139 
11M 
1132 
1133 
113** 
1135 
1136 
1137 
1138 
11 39 



* 

LIST1 HDX L CNT,1 
* 

LO 1 

S LC*« 

DSC I LIST^, - BRANCH IF YF 

HDX LIST 1 ? RETURN 



^noiFv counter 



LOAD wopd 

IS CHARACTER COMM.r 



LIST2 LOX 3 <+3 

STX L^ £ p NO 

LIST5 9SC I LIST 

* 

LIST** HOX 

RSI 
HOX 



L OMT,l 



HOVF1 
1 T^ti 



PUT EPPOP NO, u - *" 
IN £RN0 



RETURN 



INCREMENT COUNT- 



CUTOUT WOPO, HOVE POINTER 
r-ET NEXT WOR n 



* 



CNT uc 

lcha nc 

TFFOE DC 
SO 200 DC 



CONSTANTS 
STHNT NO, COUNTER 

/12 COMMA 

/FFP£ STHNT NO. MASK - p APT 1 
/0200 STHNT NO. MASK - ^ART 2 



***************************************** *****•**■*» 

* DELETES ONE WO ropy j/c STRING 

****************************************** ******** 

* 



OELET DC 
MDX 

* 

* 

STX 

* 

* 

3T0 




1 -1 



1 OELX 



1 1 
1 



* 

* 



* 
* 



* 

* 



DSC L OLT1, - 



ENTRY POINT 

800?£SS 0^ PREVIOUS WORD 



SAVE ADOPtSS 



MOVE WORD DOt»'N ON'" 
POSITION IN fTPIN^ 



r XIT IF SEMI-COLO* 



HOX 
HOX 



1 1 
OLT? 



OLT1 LOX LI *-» 
HELX ECU 0LT1 1 
* 



MOVE POINTED 
CONTINUE 10°P 



PESTOPE 

INPUT POINTEP. NrriFIARLE 



ISC I CF.LE' 



* 
* 
* 



<■ RETURN 

CHECKS FQR VALin VARTAPLES IN 
REAC, WRITE, AND GO TO STMNTS 



SLITE 



70 



1110 

1U? 

111(3 

ili»5 
lii»6 

iiu* 

115 
1151 
115? 
115^ 
115<* 
1155 
1156 
1157 
1158 
1159 
1150 
1161 
116? 
1163 
116*» 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
117? 
1173 
117*. 
117 5 
1176 
1177 
11.7* 

1179 
11«0 
1181 
IIP? 
1183 
118** 
1185 
118* 
1187 
1188 
1189 
1190 
1191 
119? 
11.9 7 

11.9U 

1196 
11.06 
1197 

11<"* 

1199 



TESTV 



TESTW 
TEST* 



S830E 
SA70E 

XY?7 



XY27A 

* 

Mil 

* 



* 
* 

HI 2 



* 
W13 






oc 
in 

BSC 

s 

BSC 

LO 

BSC 

LD 

MOX 

LO 

AND 

BSC 

BSC 

DC 

DC 



LDX 
MDX 
MDX 
MDX 
BSI 

mdx 
Mnx 

BSC 



s 

BSC 



LDX 
STX 



LD 
BSC 



STO 



BSI 



LD 
BSI 

AND 
^SC 



BSI 

HOX 



LD 

BSC 



L 
L 

L 

I 
L 
L 



L 

1 



L 7 

3 



ENTRY POINT 

S09F LOA^ SCRF 

TISTW, BRANCH NOT FUNCTICN 

3 LOAD NAME 

"NAM? TS IT PROGRAM NA Mlt 

TESTV, - PRANCH IF YES 

SW2 IS IT W D ITE STMNT 

TFSTW, - BRANCH ic yf£<- 

SA7CE LOAD PEAD MA C K 

TESTV GO TO TEST 

S83CE TEST FOR 

VALID VARIAPLE 

XY7,7 PRA^ICH TF INVALID 

TESTV PETURN 

/87PE WRITE MAS* 

/A7PF READ MASK 

MOVES A STMNT TO THE 0/P STRING 

*-» LOAD NORM. MODIFIABLE 

-i DECREMENT NORM 

* 1 SKI^ NEXT INSTRUCTION 

XY27A HOVE TO NEXT STMNT 

HOVE1 OUTPUT WO^D, MOVE D CINTE" 

-i DECREMENT NOPM 

XY2? 3 CONTINUE LOCF 

XY2? ^OVE TO NEXT STMNT 



WEOtl 
XY?7,7 



7 68 
L3 ERNO 



1 
WLP 

L XY7,7 



LOT 



MOVE1 



1 
I GETID 
W 8 3 E 
L XY7,7 



L NAPF 
L LCT,1 



L SW1 
L XY7,? 



IS IT EQUIVALENCE STMNT 
PRANCH IF NOT 



pyj PRROP 
IN ERNO 



NC. 68 



LOAD WORD 

TS CHAR LtFT PARENTHESIS 

BRANCH IF NOT 

INITIALI7t LIST COUNT 
TO 7ER0 



MOVE POINTER 



LOAD WORD 

F-ET SYM TPL ID WORD 

TS VALID TO PE EQUIVALENCE 

°RANCH IF NOT 



CHECK NAME AND SU r SCRI c TS 
INCREMENT LIST COUNT 



IS DIMENSION NAME SUBS CRIP 
"RANCH IF MOT 



SEITE 



i2on 
1201 

1202 
12 03 

12(1 «t 
1205 
1206 
1207 
1208 
120° 
1210 
1211 
1212 
1213 
121^ 
1215 
1216 
1217 
1218 

1219 
1220 

1221 
122' 
122 3 
122U 

12?5 
12 26 
1227 
12?ft 
1229 
12^0 
1231 
1232 
1277 
123i» 
1235 
1236 
1237 
123* 

1279 
17*»0 
12U1 
12^2 
12**3 
12 kh 
12*45 
12*** 
12*7 



* 



* 
» 



Wl* 



* 












LD 
BSC 



LD 

S 

BSC 



L n 

s 

BSC 



s 

3SC 



LD 
S 

BSC 



LCT 

ONE 
WEOU 

WLP 

W8 3DE 
W18 
WCMS 
WRP 



LD 

S 

BSC 



BSI 
HDX 



BO 

nc 

DC 
DC 
nc 
nc 

DC 



BSS 

END 



L SW7 
L Wl*4,7 



2 -3 

win 

L XY?,-> 



1 
WOMA 
L W13, 



WPP 



LCT 
CNE 
L XY7, 



BSI L MOVE1 



1 
WCMQ 
I XY13,? 



*OVF. 1 
W12 





1 

/15-/0E 

/10 

/87PE 

/18 

/12 

/ 2-/1 2 

ENO 



IS IT DIMENSIONED NAy. 
BRANCH IF ND 



LOAD WORD 

IS IT LITERAL OPERATOR 

opANCH t p NCT 



LOAD WORn 

IS CHAFACTFP CO MV A 

PRANCH If YE C 



IS CHAR RIGHT PARENTHESI' 
"RANCH IF NO 



LOAB LIST CCliNT 
LESS THAN TWC ARRAYS 
BRANCH IP Y^S 



CUTOUT WCPD, HOVi PCINTEF 



LOAD WCRH 

IS IT CO*MA 
"RANCH IF NC 



CUT p UT WORD, HOWE =T 
CHECK CHARACTER 

CONSTANTS 
LIST COUNT 
CNE 
EQUAL SIGN 

I EFT PARENTHESIS 

EQUIVALENCE >'ASK 

LITERAL OPERATOR 

COiHA 

*?IGHT PARFNTHESIS 



CVERt.-*+320*3 PHASF-1^ PATCH AREA 
STA^T 



